COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	αXDEFINE ∪↔	To list items into n columns on a page (skip 1 less than no. rows)
C00003 ENDMK
C⊗;
αXDEFINE ∪⊗↔⊗;	To list items into n columns on a page (skip 1 less than no. rows)
αβA⊗;		Pick up the first item
αβ2αβ9⊗↔αβ+αβcαβ2αβ9⊗↔αβ+αβc⊗; Skip 29 and copy, twice.
αβ2αβ9⊗↔⊗→αβe⊗;	Skip 29 <form> and deposit
α⊗=⊗⊗αdα⊗=⊗⊗αd⊗; Collect 3 items separated by ⊗
α⊗=\cr⊗↔⊗; Go to the end, add \cr and do a <cr>
αl⊗;   return to top of list
αβ⊗↓⊗; exit